home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991: Code Warrior / bincue / Code Warrior.bin / Developer Essentials / DTS Sample Code / Snippets / Snippets May '91 / MDEF.Sample / myMDEF.a < prev    next >
Encoding:
Text File  |  1991-09-09  |  466 b   |  17 lines  |  [TEXT/MPS ]

  1.         INCLUDE    'traps.a'
  2.         
  3.         STRING ASIS
  4.  
  5.  
  6. MyMDEF    MAIN EXPORT             ; this will be the entry point
  7.     IMPORT MYMENU                ; name of Pascal FUNCTION that is the WDEF
  8.                                 ; we IMPORT externally referenced routines
  9.                                 ; from Pascal (in this case, just this one)
  10.     BRA.S    @0                    ; branch around the header to the actual code
  11.     DC.W    0                      ; flags word
  12.     DC.B    'MDEF'                ; type
  13.     DC.W    128                    ; ID number
  14.     DC.W    0                    ; version
  15. @0    JMP    MyMenu                    ; this calls the Pascal WDEF
  16.     END
  17.